0 DEFFNR(R)=RND(.)*R+1:GOTO09
1 IFLEN(Z$)<=WTHENPRINTZ$;:RETURN
2 FORI=WTO.STEP-1:IFMID$(Z$,I,1)<>" "THENNEXT
3 PRINTLEFT$(Z$,I):Z$=MID$(Z$,I+1):GOTO1
9 POKE53272,20:POKE646,2
10 PRINT"[147][157]";:W=POS(.)
11 PRINT" NONE SHALL PASS! ":PRINT" [206][205][206][205]  [167]":PRINT"[206][205][206][205][206][205] [186]":PRINT"[205] [205][206] [206]":PRINT" [205]  [206]":PRINT"  [205][206]
12 [134]A$(99):[129]I[178]1[164]19:[135]A$(I):[130]:[129]I[178]20[164]90[169]10:[135]A$(I):[129]J[178]1[164]9:A$(I[170]J)[178]A$(I)[170]A$(J):[130]:[130]
20 Z$[178]"NONE SHALL PASS UNLESS HE ANSWERS ME RIGHT. TELL ME YOUR AGE":[141]1
21 [133]A%:[139]A%[179]2[176]A%[177]130[167]90
22 M[178]10:N[178]M:[139]A%[177]11[167]M[178]20:N[178]12:[139]A%[177]15[167]M[178]99
23 Y$[178]"WHAT IS ":[139]A%[179]8[167]30
25 F1%[178][165]R(M):F2%[178][165]R(N)
26 Z$[178]Y$[170]A$(F1%)[170]" TIMES "[170]A$(F2%):[141]1:[133]P:[139]P[179][177]F1%[172]F2%[167]90
30 T1%[178][165]R(M):T2%[178][165]R(T1%):[139]T2%[178]0[167]30
31 Z$[178]Y$[170]A$(T2%)[170]" FROM "[170]A$(T1%):[141]1:[133]S:[139]S[179][177]T1%[171]T2%[167]90
35 A1%[178][165]R(M):A2%[178][165]R(M):[139]A1%[170]A2%[178]0[167]35
36 Z$[178]"TELL ME THE SUM OF "[170]A$(A1%)[170]" AND "[170]A$(A2%):[141]1:[133]A:[139]A[179][177]A1%[170]A2%[167]90
80 Z$[178]"YOU MAY PASS!":[141]1:[128]
90 Z$[178]"THAT'S NOT CORRECT!":[141]1:[128]
100 [131]ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN
101 [131]TWENTY,THIRTY,FOURTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY